/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue02 / extras / statistics / programs / anov1

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 22 f4 20 4f 6e | 65 20 77 61 79 20 61 6e |...". On|e way an|
|00000010| 61 6c 79 73 69 73 20 6f | 66 20 76 61 72 69 61 6e |alysis o|f varian|
|00000020| 63 65 0d 00 14 21 f4 20 | 63 6f 70 79 72 69 67 68 |ce...!. |copyrigh|
|00000030| 74 20 52 2e 43 2e 64 65 | 20 56 65 6b 65 79 20 39 |t R.C.de| Vekey 9|
|00000040| 2f 38 39 0d 00 32 09 f2 | 69 6e 69 74 0d 00 3c 0a |/89..2..|init..<.|
|00000050| f2 77 68 65 72 65 0d 00 | 46 08 f2 64 69 6d 0d 00 |.where..|F..dim..|
|00000060| 78 57 20 db 3a ee 20 85 | 20 e7 20 9f 20 3c 3e 31 |xW .:. .| . . <>1|
|00000070| 37 20 f1 22 45 72 72 6f | 72 20 4e 6f 2e 20 22 3b |7 ."Erro|r No. ";|
|00000080| 9f 20 3b 22 20 68 61 73 | 20 6f 63 63 75 72 65 64 |. ;" has| occured|
|00000090| 20 61 74 20 6c 69 6e 65 | 20 22 3b 9e 3a 64 65 6c | at line| ";.:del|
|000000a0| 3d a6 35 30 30 3a e5 20 | 8d 74 42 40 20 8b 20 e5 |=.500:. |.tB@ . .|
|000000b0| 20 8d 74 42 40 0d 00 82 | 7a f1 27 22 54 6f 20 69 | .tB@...|z.'"To i|
|000000c0| 6e 70 75 74 20 66 72 6f | 6d 20 44 49 53 43 66 69 |nput fro|m DISCfi|
|000000d0| 6c 65 73 20 65 6e 74 65 | 72 2e 2e 2e 2e 2e 2e 31 |les ente|r......1|
|000000e0| 22 27 22 54 6f 20 69 6e | 70 75 74 20 64 61 74 61 |"'"To in|put data|
|000000f0| 20 66 72 6f 6d 20 74 68 | 65 20 6b 65 79 62 6f 61 | from th|e keyboa|
|00000100| 72 64 2e 2e 2e 2e 32 22 | 27 22 54 6f 20 6d 61 6b |rd....2"|'"To mak|
|00000110| 65 20 61 20 64 61 74 61 | 20 66 69 6c 65 2e 2e 2e |e a data| file...|
|00000120| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 33 22 0d |........|.....3".|
|00000130| 00 8c 79 f1 22 54 6f 20 | 6d 61 6b 65 20 61 6e 20 |..y."To |make an |
|00000140| 4f 70 65 72 61 74 69 6e | 67 20 73 79 73 74 65 6d |Operatin|g system|
|00000150| 20 63 61 6c 6c 2e 2e 2e | 34 22 27 22 54 6f 20 63 | call...|4"'"To c|
|00000160| 68 61 6e 67 65 20 64 69 | 73 63 20 64 72 69 76 65 |hange di|sc drive|
|00000170| 20 6f 72 20 70 61 74 68 | 6e 61 6d 65 2e 2e 2e 35 | or path|name...5|
|00000180| 22 27 22 54 6f 20 66 69 | 6e 69 73 68 2e 2e 2e 2e |"'"To fi|nish....|
|00000190| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000001a0| 2e 2e 2e 2e 2e 2e 36 22 | 0d 00 96 20 47 32 3d a5 |......6"|... G2=.|
|000001b0| 2d 34 38 3a e7 20 47 32 | 3c 31 20 84 20 47 32 3e |-48:. G2|<1 . G2>|
|000001c0| 36 20 e5 20 8d 74 42 40 | 0d 00 a0 12 e7 20 47 32 |6 . .tB@|..... G2|
|000001d0| 3d 36 20 ee 20 85 20 87 | 3a e0 0d 00 aa 19 e7 20 |=6 . . .|:...... |
|000001e0| 47 32 3d 35 20 f2 77 68 | 65 72 65 3a 20 e5 20 8d |G2=5 .wh|ere: . .|
|000001f0| 74 42 40 0d 00 b4 17 e7 | 20 47 32 3d 34 20 8c 20 |tB@.....| G2=4 . |
|00000200| f2 6f 73 3a e5 20 8d 74 | 42 40 0d 00 be 25 e7 20 |.os:. .t|B@...%. |
|00000210| 47 32 3d 33 20 8c 20 f2 | 6c 6f 61 64 3a f2 64 69 |G2=3 . .|load:.di|
|00000220| 73 70 3a f2 73 61 76 65 | 3a e5 20 8d 74 42 40 0d |sp:.save|:. .tB@.|
|00000230| 00 c8 18 e7 20 47 32 3d | 32 20 8c 20 f2 6c 6f 61 |.... G2=|2 . .loa|
|00000240| 64 3a f2 64 69 73 70 0d | 00 e6 3b e8 27 22 82 45 |d:.disp.|..;.'".E|
|00000250| 6e 74 65 72 20 4e 6f 2e | 6f 66 20 63 65 6c 6c 73 |nter No.|of cells|
|00000260| 20 26 20 6d 61 78 2e 4e | 6f 2e 69 6e 20 65 61 63 | & max.N|o.in eac|
|00000270| 68 20 63 65 6c 6c 22 2c | 52 2c 4d 3a 4e 39 3d 52 |h cell",|R,M:N9=R|
|00000280| 2a 4d 0d 00 f0 21 e7 20 | 4e 39 3c 34 20 f1 22 45 |*M...!. |N9<4 ."E|
|00000290| 6e 74 72 79 20 65 72 72 | 6f 72 21 22 3a e5 20 8d |ntry err|or!":. .|
|000002a0| 64 66 40 0d 00 fa 1d f1 | 27 3b 22 85 44 61 74 61 |df@.....|';".Data|
|000002b0| 20 72 65 71 75 69 72 65 | 64 20 3d 20 22 3b 4e 39 | require|d = ";N9|
|000002c0| 0d 01 04 11 e7 20 47 32 | 3d 32 20 8c 20 8d 64 68 |..... G2|=2 . .dh|
|000002d0| 43 0d 01 2c 1d 20 f4 20 | 46 49 4c 45 20 41 43 43 |C..,. . |FILE ACC|
|000002e0| 45 53 53 49 4e 47 20 52 | 4f 55 54 49 4e 45 0d 01 |ESSING R|OUTINE..|
|000002f0| 36 1e f1 27 22 82 88 20 | 20 20 20 20 46 49 4c 45 |6..'".. |    FILE|
|00000300| 20 50 52 4f 43 45 53 53 | 4f 52 22 27 0d 01 4a 08 | PROCESS|OR"'..J.|
|00000310| 5a 25 3d 30 0d 01 54 1b | 20 f5 3a f2 69 6e 70 75 |Z%=0..T.| .:.inpu|
|00000320| 74 28 44 24 29 3a fd 20 | 5a 25 3e 4e 39 2d 31 0d |t(D$):. |Z%>N9-1.|
|00000330| 01 5e 3e f2 66 69 6c 28 | 31 32 39 29 3a f1 22 83 |.^>.fil(|129):.".|
|00000340| 9d 84 3e 20 20 50 72 65 | 73 73 20 61 20 6b 65 79 |..>  Pre|ss a key|
|00000350| 20 74 6f 20 65 6e 64 20 | 64 65 6c 61 79 20 20 3c | to end |delay  <|
|00000360| 22 3a 64 65 6c 3d a6 28 | 32 30 30 30 29 0d 01 68 |":del=.(|2000)..h|
|00000370| 4c f1 27 22 83 9d 84 41 | 6d 65 6e 64 20 6f 72 20 |L.'"...A|mend or |
|00000380| 63 68 65 63 6b 20 64 61 | 74 61 20 59 3f 20 65 6c |check da|ta Y? el|
|00000390| 73 65 20 52 45 54 55 52 | 4e 20 22 3a 59 25 3d a5 |se RETUR|N ":Y%=.|
|000003a0| 3a e7 20 59 25 3d 38 39 | 20 84 20 59 25 3d 31 32 |:. Y%=89| . Y%=12|
|000003b0| 31 20 8c 20 f2 64 69 73 | 70 0d 03 e8 0a 20 ee 20 |1 . .dis|p.... . |
|000003c0| 85 20 87 0d 03 f2 16 20 | 50 3d 30 3a 41 3d 30 3a |. ..... |P=0:A=0:|
|000003d0| 41 32 3d 30 3a 41 33 3d | 30 0d 03 fc 12 20 49 35 |A2=0:A3=|0.... I5|
|000003e0| 3d 30 3a 49 36 3d 30 3a | 4e 3d 30 0d 04 06 30 53 |=0:I6=0:|N=0...0S|
|000003f0| 3d 30 3a 54 3d 30 3a 53 | 31 3d 30 3a e3 20 4a 3d |=0:T=0:S|1=0:. J=|
|00000400| 31 20 b8 20 61 72 72 61 | 79 73 69 7a 65 25 2a 32 |1 . arra|ysize%*2|
|00000410| 35 3a 41 33 28 4a 29 3d | 30 3a ed 0d 04 10 0e 20 |5:A3(J)=|0:..... |
|00000420| e3 20 4a 3d 31 20 b8 20 | 52 0d 04 15 09 20 4b 31 |. J=1 . |R.... K1|
|00000430| 3d 30 0d 04 1a 0e 20 e3 | 20 4b 3d 31 20 b8 20 4d |=0.... .| K=1 . M|
|00000440| 0d 04 1f 22 20 49 35 3d | 49 35 2b 31 3a 50 25 3d |..." I5=|I5+1:P%=|
|00000450| 49 35 20 83 32 34 30 3a | 4b 25 3d 49 35 20 81 32 |I5 .240:|K%=I5 .2|
|00000460| 34 30 0d 04 24 10 20 58 | 3d 58 31 28 50 25 2c 4b |40..$. X|=X1(P%,K|
|00000470| 25 29 0d 04 2e 28 e7 20 | 58 3c 2e 30 30 31 20 80 |%)...(. |X<.001 .|
|00000480| 20 64 75 6d 6d 79 25 3d | 30 20 8c 20 4b 31 3d 4b | dummy%=|0 . K1=K|
|00000490| 31 2b 31 3a e5 20 8d 44 | 42 44 0d 04 38 14 20 41 |1+1:. .D|BD..8. A|
|000004a0| 3d 41 2b 58 20 3a 20 53 | 3d 53 2b 58 5e 32 0d 04 |=A+X : S|=S+X^2..|
|000004b0| 42 08 20 ed 20 4b 0d 04 | 56 16 20 f1 20 22 43 45 |B. . K..|V. . "CE|
|000004c0| 4c 4c 20 43 4f 4d 50 4c | 45 54 45 22 0d 04 5b 0b |LL COMPL|ETE"..[.|
|000004d0| 20 4b 3d 4d 2d 4b 31 0d | 04 5d 0d 20 49 36 3d 49 | K=M-K1.|.]. I6=I|
|000004e0| 36 2b 4b 31 0d 04 60 28 | 20 54 3d 54 2b 41 20 3a |6+K1..`(| T=T+A :|
|000004f0| 20 4e 3d 4e 2b 4b 20 3a | 20 50 3d 50 2b 4b 20 3a | N=N+K :| P=P+K :|
|00000500| 20 51 28 4a 29 3d 51 28 | 4a 29 2b 4b 0d 04 6a 0c | Q(J)=Q(|J)+K..j.|
|00000510| 20 41 32 3d 41 32 2b 41 | 0d 04 74 20 20 41 33 28 | A2=A2+A|..t  A3(|
|00000520| 4a 29 3d 41 33 28 4a 29 | 2b 41 20 3a 20 53 31 3d |J)=A3(J)|+A : S1=|
|00000530| 53 31 2b 41 5e 32 2f 4b | 0d 04 7e 08 20 41 3d 30 |S1+A^2/K|..~. A=0|
|00000540| 0d 04 88 08 20 ed 20 4a | 0d 04 c4 0c 20 46 3d 54 |.... . J|.... F=T|
|00000550| 5e 32 2f 4e 0d 04 ce 0c | 20 53 33 3d 53 33 2d 46 |^2/N....| S3=S3-F|
|00000560| 0d 04 d8 0c 20 53 32 3d | 53 32 2d 46 0d 04 e2 0c |.... S2=|S2-F....|
|00000570| 20 53 31 3d 53 31 2d 46 | 0d 04 ec 0d 20 53 3d 53 | S1=S1-F|.... S=S|
|00000580| 2d 46 2d 53 31 0d 04 f6 | 0b 20 44 31 3d 52 2d 31 |-F-S1...|. D1=R-1|
|00000590| 0d 04 fb 0d 20 44 3d 4e | 2d 31 2d 44 31 0d 05 00 |.... D=N|-1-D1...|
|000005a0| 0d 20 56 31 3d 53 31 2f | 44 31 0d 05 05 0a 20 56 |. V1=S1/|D1.... V|
|000005b0| 3d 53 2f 44 0d 13 60 19 | f1 20 22 41 4e 41 4c 59 |=S/D..`.|. "ANALY|
|000005c0| 53 49 53 20 43 4f 4d 50 | 4c 45 54 45 22 0d 13 6a |SIS COMP|LETE"..j|
|000005d0| 32 f1 3b 49 36 3b 22 20 | 44 75 6d 6d 79 20 64 61 |2.;I6;" |Dummy da|
|000005e0| 74 61 20 76 61 6c 75 65 | 73 20 77 65 72 65 20 6f |ta value|s were o|
|000005f0| 6d 69 74 74 65 64 20 28 | 3c 2e 30 30 31 29 22 0d |mitted (|<.001)".|
|00000600| 13 74 1b f1 27 27 22 44 | 65 73 63 72 69 70 74 69 |.t..''"D|escripti|
|00000610| 6f 6e 3a 2d 22 3b 41 24 | 3b 27 0d 13 88 2a f1 27 |on:-";A$|;'...*.'|
|00000620| 22 53 4f 55 52 43 45 20 | 20 20 20 20 20 20 44 4f |"SOURCE |      DO|
|00000630| 46 20 20 20 56 41 52 49 | 41 4e 43 45 20 52 41 54 |F   VARI|ANCE RAT|
|00000640| 49 4f 22 27 0d 13 9c 1c | f1 22 45 46 46 45 43 54 |IO"'....|."EFFECT|
|00000650| 2e 2e 2e 2e 2e 2e 2e 22 | 3b 44 31 2c 56 31 2f 56 |......."|;D1,V1/V|
|00000660| 0d 13 a6 09 40 25 3d 31 | 30 0d 13 b0 16 f1 22 52 |....@%=1|0....."R|
|00000670| 45 53 49 44 55 41 4c 2e | 2e 2e 2e 2e 22 3b 44 0d |ESIDUAL.|....";D.|
|00000680| 13 ba 34 f1 22 52 65 73 | 75 6c 74 2f 64 61 74 61 |..4."Res|ult/data|
|00000690| 20 74 6f 20 70 72 69 6e | 74 65 72 20 52 2f 44 20 | to prin|ter R/D |
|000006a0| 6f 72 20 72 65 72 75 6e | 20 3d 20 45 22 3a 53 57 |or rerun| = E":SW|
|000006b0| 24 3d be 0d 13 c4 1f e7 | 20 53 57 24 3d 22 52 22 |$=......| SW$="R"|
|000006c0| 20 84 20 53 57 24 3d 22 | 72 22 8c 20 f2 70 72 69 | . SW$="|r". .pri|
|000006d0| 6e 74 0d 13 c9 23 e7 20 | 53 57 24 3d 22 44 22 20 |nt...#. |SW$="D" |
|000006e0| 84 20 53 57 24 3d 22 64 | 22 8c 20 f2 70 72 69 6e |. SW$="d|". .prin|
|000006f0| 74 64 61 74 61 0d 13 ce | 20 e7 20 53 57 24 3c 3e |tdata...| . SW$<>|
|00000700| 22 45 22 20 80 20 53 57 | 24 3c 3e 22 65 22 20 e5 |"E" . SW|$<>"e" .|
|00000710| 20 8d 74 7a 53 0d 13 f6 | 0a e5 20 8d 44 78 40 0d | .tzS...|.. .Dx@.|
|00000720| 23 28 0c 20 dd f2 70 72 | 69 6e 74 0d 23 32 07 20 |#(. ..pr|int.#2. |
|00000730| ef 32 0d 23 46 24 20 f1 | 22 4f 4e 45 20 57 41 59 |.2.#F$ .|"ONE WAY|
|00000740| 20 41 4e 41 4c 59 53 49 | 53 20 4f 46 20 56 41 52 | ANALYSI|S OF VAR|
|00000750| 49 41 4e 43 45 22 0d 23 | 50 2c f1 27 22 46 69 6c |IANCE".#|P,.'"Fil|
|00000760| 65 20 6e 61 6d 65 3a 22 | 3b 72 65 66 24 3b 27 22 |e name:"|;ref$;'"|
|00000770| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 22 3b 41 24 |Descript|ion:";A$|
|00000780| 3b 27 0d 23 55 33 f1 27 | 3b 49 36 3b 22 20 44 75 |;'.#U3.'|;I6;" Du|
|00000790| 6d 6d 79 20 64 61 74 61 | 20 76 61 6c 75 65 73 20 |mmy data| values |
|000007a0| 77 65 72 65 20 6f 6d 69 | 74 74 65 64 20 28 3c 2e |were omi|tted (<.|
|000007b0| 30 30 31 29 22 0d 23 5a | 44 f1 27 22 20 46 41 43 |001)".#Z|D.'" FAC|
|000007c0| 54 4f 52 53 2e 2e 2e 2e | 44 4f 46 2e 2e 2e 2e 2e |TORS....|DOF.....|
|000007d0| 2e 2e 53 55 4d 2e 4f 46 | 2e 53 51 55 41 52 45 53 |..SUM.OF|.SQUARES|
|000007e0| 2e 2e 2e 2e 56 41 52 49 | 41 4e 43 45 2e 2e 2e 56 |....VARI|ANCE...V|
|000007f0| 41 52 2e 52 41 54 49 4f | 22 0d 23 64 30 20 f1 22 |AR.RATIO|".#d0 ."|
|00000800| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 22 3b 44 |........|.....";D|
|00000810| 31 3b 3a 40 25 3d 26 32 | 30 35 30 43 3a f1 2c 53 |1;:@%=&2|050C:.,S|
|00000820| 31 2c 56 31 2c 56 31 2f | 56 0d 23 6e 0a 20 40 25 |1,V1,V1/|V.#n. @%|
|00000830| 3d 31 30 0d 23 78 28 20 | f1 22 52 45 53 49 44 55 |=10.#x( |."RESIDU|
|00000840| 41 4c 2e 2e 2e 2e 2e 22 | 3b 44 3b 3a 40 25 3d 26 |AL....."|;D;:@%=&|
|00000850| 32 30 35 30 43 3a f1 2c | 53 2c 56 0d 23 82 0a 20 |2050C:.,|S,V.#.. |
|00000860| 40 25 3d 31 30 0d 23 8c | 0a 20 ef 33 20 3a e1 0d |@%=10.#.|. .3 :..|
|00000870| 23 f0 2e dd f2 70 72 69 | 6e 74 64 61 74 61 3a ef |#....pri|ntdata:.|
|00000880| 32 3a ef 31 2c 32 37 2c | 31 30 33 3a 49 25 3d 38 |2:.1,27,|103:I%=8|
|00000890| 3a 40 25 3d 26 30 30 30 | 30 30 35 30 43 0d 23 f5 |:@%=&000|0050C.#.|
|000008a0| 2c f1 27 22 46 69 6c 65 | 20 6e 61 6d 65 3a 22 3b |,.'"File| name:";|
|000008b0| 72 65 66 24 3b 27 22 44 | 65 73 63 72 69 70 74 69 |ref$;'"D|escripti|
|000008c0| 6f 6e 3a 22 3b 41 24 3b | 27 0d 23 fa 17 e3 20 52 |on:";A$;|'.#... R|
|000008d0| 25 3d 31 20 b8 20 28 52 | 20 81 20 49 25 29 2b 31 |%=1 . (R| . I%)+1|
|000008e0| 0d 24 04 0e e3 20 51 25 | 3d 31 20 b8 20 4d 0d 24 |.$... Q%|=1 . M.$|
|000008f0| 0e 0f e3 20 50 25 3d 31 | 20 b8 20 49 25 0d 24 13 |... P%=1| . I%.$.|
|00000900| 34 43 25 3d 28 52 25 2d | 31 29 2a 49 25 2a 4d 2b |4C%=(R%-|1)*I%*M+|
|00000910| 28 50 25 2d 31 29 2a 4d | 2b 51 25 3a 4a 25 3d 43 |(P%-1)*M|+Q%:J%=C|
|00000920| 25 20 83 32 34 30 3a 4b | 25 3d 43 25 20 81 32 34 |% .240:K|%=C% .24|
|00000930| 30 0d 24 18 10 f1 58 31 | 28 4a 25 2c 4b 25 29 2c |0.$...X1|(J%,K%),|
|00000940| 3b 0d 24 22 0d ed 3a f1 | 3a ed 3a f1 3a ed 0d 24 |;.$"..:.|:.:.:..$|
|00000950| 54 18 ef 31 2c 32 37 2c | 37 37 3a ef 33 3a 40 25 |T..1,27,|77:.3:@%|
|00000960| 3d 26 31 30 3a e1 0d 27 | 10 0a dd f2 6c 6f 61 64 |=&10:..'|....load|
|00000970| 0d 27 15 36 f1 3a e8 22 | 45 6e 74 65 72 20 4e 6f |.'.6.:."|Enter No|
|00000980| 2e 6f 66 20 72 65 73 75 | 6c 74 73 22 2c 4e 39 3a |.of resu|lts",N9:|
|00000990| f1 22 45 6e 74 65 72 20 | 22 3b 4e 39 3b 22 20 76 |."Enter |";N9;" v|
|000009a0| 61 6c 75 65 73 22 0d 27 | 24 70 e3 20 4b 25 3d 30 |alues".'|$p. K%=0|
|000009b0| 20 b8 20 61 72 72 61 79 | 73 69 7a 65 25 3a 20 e3 | . array|size%: .|
|000009c0| 20 49 3d 31 20 b8 20 32 | 34 30 3a e7 20 4b 25 2a | I=1 . 2|40:. K%*|
|000009d0| 32 34 30 2b 49 3d 4e 39 | 2b 31 20 4b 25 3d 61 72 |240+I=N9|+1 K%=ar|
|000009e0| 72 61 79 73 69 7a 65 25 | 3a 49 3d 32 34 30 20 8b |raysize%|:I=240 .|
|000009f0| 20 f1 22 45 4e 54 45 52 | 20 58 31 28 22 3b 4b 25 | ."ENTER| X1(";K%|
|00000a00| 2a 32 34 30 2b 49 3b 22 | 29 22 3b 3a e8 20 58 31 |*240+I;"|)";:. X1|
|00000a10| 28 49 2c 4b 25 29 0d 27 | 42 07 ed 3a ed 0d 27 4c |(I,K%).'|B..:..'L|
|00000a20| 29 e8 22 45 6e 74 65 72 | 20 61 20 64 65 73 63 72 |)."Enter| a descr|
|00000a30| 69 70 74 69 6f 6e 20 6f | 66 20 74 68 65 20 64 61 |iption o|f the da|
|00000a40| 74 61 22 2c 41 24 0d 27 | 56 05 e1 0d 27 5b 05 3a |ta",A$.'|V...'[.:|
|00000a50| 0d 27 60 1e dd f2 64 69 | 73 70 3a ea 20 4b 25 2c |.'`...di|sp:. K%,|
|00000a60| 4c 25 2c 4d 25 2c 50 25 | 2c 51 25 2c 4b 39 0d 27 |L%,M%,P%|,Q%,K9.'|
|00000a70| 62 3b 4b 25 3d 30 3a 6c | 6f 25 3d 30 3a e7 20 4e |b;K%=0:l|o%=0:. N|
|00000a80| 39 3d 30 20 f1 27 22 83 | 9d 88 81 3e 20 20 4e 4f |9=0 .'".|...>  NO|
|00000a90| 20 20 44 41 54 41 20 20 | 3c 89 22 27 3a 64 65 6c |  DATA  |<."':del|
|00000aa0| 3d a6 28 32 35 30 29 3a | e1 0d 27 65 43 e3 20 4b |=.(250):|..'eC. K|
|00000ab0| 25 3d 30 20 b8 20 4e 39 | 20 81 20 32 34 30 3a e7 |%=0 . N9| . 240:.|
|00000ac0| 20 4e 39 2d 4b 25 2a 32 | 34 30 3e 32 33 39 20 8c | N9-K%*2|40>239 .|
|00000ad0| 20 4f 25 3d 33 20 8b 20 | 4f 25 3d 28 4e 39 2d 4b | O%=3 . |O%=(N9-K|
|00000ae0| 25 2a 32 34 30 2d 31 29 | 81 20 36 30 0d 27 6a 17 |%*240-1)|. 60.'j.|
|00000af0| e3 20 4c 25 3d 30 20 b8 | 20 4f 25 3a 4b 39 3d 4c |. L%=0 .| O%:K9=L|
|00000b00| 25 3a db 0d 27 74 59 e3 | 20 4d 25 3d 30 20 b8 20 |%:..'tY.| M%=0 . |
|00000b10| 32 3a 51 25 3d 4b 25 2a | 32 34 30 2b 4c 25 2a 36 |2:Q%=K%*|240+L%*6|
|00000b20| 30 3a 20 e7 20 20 51 25 | 3e 39 39 39 20 f1 8a 35 |0: .  Q%|>999 ..5|
|00000b30| 2c 32 29 3b 22 92 9d 88 | 81 49 4e 44 45 58 20 22 |,2);"...|.INDEX "|
|00000b40| 3b c0 c3 28 51 25 29 2c | 31 29 3b 22 20 54 48 4f |;..(Q%),|1);" THO|
|00000b50| 55 53 41 4e 44 2c 2e 2e | 92 95 22 3b 0d 27 7e 0f |USAND,..|..";.'~.|
|00000b60| e3 20 50 25 3d 31 20 b8 | 20 32 30 0d 27 88 63 f1 |. P%=1 .| 20.'.c.|
|00000b70| 8a 4d 25 2a 31 33 2c 50 | 25 2b 32 29 3b c2 c3 28 |.M%*13,P|%+2);..(|
|00000b80| 4b 25 2a 32 34 30 2b 4c | 25 2a 36 30 2b 4d 25 2a |K%*240+L|%*60+M%*|
|00000b90| 32 30 2b 50 25 29 2c 33 | 29 3b 8a 4d 25 2a 31 33 |20+P%),3|);.M%*13|
|00000ba0| 2b 34 2c 50 25 2b 32 29 | 3b a4 75 73 69 6e 67 28 |+4,P%+2)|;.using(|
|00000bb0| 73 68 61 70 65 24 2c 58 | 31 28 4c 25 2a 36 30 2b |shape$,X|1(L%*60+|
|00000bc0| 4d 25 2a 32 30 2b 50 25 | 2c 4b 25 29 29 3b 0d 27 |M%*20+P%|,K%));.'|
|00000bd0| 9c 0b ed 50 25 3a ed 4d | 25 0d 27 a1 11 e7 20 46 |...P%:.M|%.'... F|
|00000be0| 34 3d 31 20 f2 61 6d 65 | 6e 64 0d 27 a2 12 e7 20 |4=1 .ame|nd.'... |
|00000bf0| 46 34 3d 32 20 f2 64 65 | 6c 65 74 65 0d 27 a3 12 |F4=2 .de|lete.'..|
|00000c00| e7 20 46 34 3d 33 20 f2 | 69 6e 73 65 72 74 0d 27 |. F4=3 .|insert.'|
|00000c10| a6 15 ed 4c 25 3a ed 20 | 4b 25 3a 40 25 3d 26 31 |...L%:. |K%:@%=&1|
|00000c20| 30 3a e1 0d 27 ab 05 3a | 0d 27 b0 17 dd f2 61 6d |0:..'..:|.'....am|
|00000c30| 65 6e 64 3a ea 20 6c 6f | 25 2c 49 25 2c 52 25 0d |end:. lo|%,I%,R%.|
|00000c40| 27 ba 59 f1 8a 30 2c 31 | 29 3b 22 83 9d 81 41 4d |'.Y..0,1|);"...AM|
|00000c50| 45 4e 44 20 52 4f 55 54 | 49 4e 45 20 20 9c 87 41 |END ROUT|INE  ..A|
|00000c60| 6d 65 6e 64 20 64 61 74 | 61 20 59 2f 4e 3f 20 20 |mend dat|a Y/N?  |
|00000c70| 20 20 20 20 20 22 3a 53 | 57 24 3d be 3a e7 20 53 |     ":S|W$=.:. S|
|00000c80| 57 24 3c 3e 22 59 22 20 | 80 20 53 57 24 3c 3e 22 |W$<>"Y" |. SW$<>"|
|00000c90| 79 22 20 8c 20 db 3a e1 | 0d 27 c4 61 f1 8a 30 2c |y" . .:.|.'.a..0,|
|00000ca0| 31 29 3b 22 45 6e 74 65 | 72 20 61 72 72 61 79 20 |1);"Ente|r array |
|00000cb0| 73 75 62 73 63 72 69 70 | 74 73 20 6f 66 20 65 61 |subscrip|ts of ea|
|00000cc0| 63 68 20 76 61 6c 75 65 | 20 74 6f 20 62 65 20 61 |ch value| to be a|
|00000cd0| 6d 65 6e 64 65 64 20 74 | 68 65 6e 20 7a 65 72 6f |mended t|hen zero|
|00000ce0| 20 74 6f 20 74 65 72 6d | 69 6e 61 74 65 22 3a 64 | to term|inate":d|
|00000cf0| 65 6c 3d a6 28 31 30 30 | 29 0d 27 ce 09 6c 6f 25 |el=.(100|).'..lo%|
|00000d00| 3d 30 0d 27 d8 b5 f5 3a | 6c 6f 25 3d 6c 6f 25 2b |=0.'...:|lo%=lo%+|
|00000d10| 31 3a f1 8a 30 2c 31 29 | 3b c4 37 35 2c 22 20 22 |1:..0,1)|;.75," "|
|00000d20| 29 3b 8a 35 2c 31 29 3b | 3a e8 22 4e 65 78 74 20 |);.5,1);|:."Next |
|00000d30| 73 75 62 73 63 72 69 70 | 74 22 2c 49 25 28 6c 6f |subscrip|t",I%(lo|
|00000d40| 25 29 3a f1 49 25 28 6c | 6f 25 29 2c 4b 25 2a 32 |%):.I%(l|o%),K%*2|
|00000d50| 34 30 2b 4c 25 2a 36 30 | 2b 36 30 20 3a f1 8a 30 |40+L%*60|+60 :..0|
|00000d60| 2c 30 29 c4 31 35 2c 22 | 20 22 29 3a fd 20 49 25 |,0).15,"| "):. I%|
|00000d70| 28 6c 6f 25 29 3e 4b 25 | 2a 32 34 30 2b 4c 25 2a |(lo%)>K%|*240+L%*|
|00000d80| 36 30 2b 36 30 20 84 20 | 49 25 28 6c 6f 25 29 3c |60+60 . |I%(lo%)<|
|00000d90| 4b 25 2a 32 34 30 2b 4c | 25 2a 36 30 2b 31 20 84 |K%*240+L|%*60+1 .|
|00000da0| 20 49 25 28 6c 6f 25 29 | 3e 4e 39 20 84 20 49 25 | I%(lo%)|>N9 . I%|
|00000db0| 28 6c 6f 25 29 3d 30 0d | 27 e2 3a e7 20 49 25 28 |(lo%)=0.|'.:. I%(|
|00000dc0| 6c 6f 25 29 3c 3e 30 20 | 8c 20 f1 8a 30 2c 30 29 |lo%)<>0 |. ..0,0)|
|00000dd0| 22 85 88 4f 75 74 20 6f | 66 20 72 61 6e 67 65 22 |"..Out o|f range"|
|00000de0| 3a 6c 6f 25 3d 6c 6f 25 | 2d 31 3a e5 20 8d 64 58 |:lo%=lo%|-1:. .dX|
|00000df0| 67 0d 27 ec 4b 54 3d 6c | 6f 25 3a e3 20 6c 6f 25 |g.'.KT=l|o%:. lo%|
|00000e00| 3d 31 20 b8 20 54 2d 31 | 3a 52 25 3d 49 25 28 6c |=1 . T-1|:R%=I%(l|
|00000e10| 6f 25 29 81 32 34 30 3a | 53 25 3d 49 25 28 6c 6f |o%).240:|S%=I%(lo|
|00000e20| 25 29 83 32 34 30 3a e7 | 20 53 25 3d 30 20 53 25 |%).240:.| S%=0 S%|
|00000e30| 3d 32 34 30 3a 52 25 3d | 52 25 2d 31 0d 27 f6 5c |=240:R%=|R%-1.'.\|
|00000e40| f1 8a 30 2c 31 29 3b c4 | 37 35 2c 22 20 22 29 8a |..0,1);.|75," ").|
|00000e50| 30 2c 31 29 3b 22 4f 6c | 64 20 76 61 6c 75 65 20 |0,1);"Ol|d value |
|00000e60| 6f 66 20 58 31 28 22 3b | 49 25 28 6c 6f 25 29 3b |of X1(";|I%(lo%);|
|00000e70| 22 29 3d 22 3b 58 31 28 | 53 25 2c 52 25 29 3b 22 |")=";X1(|S%,R%);"|
|00000e80| 20 4e 65 77 20 76 61 6c | 75 65 3f 22 3b 3a e8 58 | New val|ue?";:.X|
|00000e90| 31 28 53 25 2c 52 25 29 | 0d 27 f8 09 f2 70 6f 73 |1(S%,R%)|.'...pos|
|00000ea0| 6e 0d 27 fb 44 f1 8a 4a | 39 2a 31 33 2b 34 2c 49 |n.'.D..J|9*13+4,I|
|00000eb0| 39 2b 32 29 3b c4 39 2c | 22 20 22 29 3b 8a 4a 39 |9+2);.9,|" ");.J9|
|00000ec0| 2a 31 33 2b 34 2c 49 39 | 2b 32 29 3b a4 75 73 69 |*13+4,I9|+2);.usi|
|00000ed0| 6e 67 28 73 68 61 70 65 | 24 2c 58 31 28 53 25 2c |ng(shape|$,X1(S%,|
|00000ee0| 52 25 29 29 3b 0d 28 00 | 0c ed 3a e5 20 8d 74 7a |R%));.(.|..:. .tz|
|00000ef0| 67 0d 28 0a 07 db 3a e1 | 0d 28 14 0f dd f2 69 6e |g.(...:.|.(....in|
|00000f00| 70 75 74 28 44 24 29 0d | 28 1e 18 ea 20 50 25 2c |put(D$).|(... P%,|
|00000f10| 51 25 2c 64 65 6c 2c 4e | 25 2c 4a 25 2c 4b 25 0d |Q%,del,N|%,J%,K%.|
|00000f20| 28 64 32 f1 27 22 45 6e | 74 65 72 20 74 68 65 20 |(d2.'"En|ter the |
|00000f30| 66 6f 6c 6c 6f 77 69 6e | 67 3a 2d 22 3a ff 20 28 |followin|g:-":. (|
|00000f40| 22 6d 6f 75 6e 74 20 22 | 2b c3 28 69 6e 63 25 29 |"mount "|+.(inc%)|
|00000f50| 29 0d 28 6e 42 f1 22 20 | 20 46 69 6c 65 20 72 65 |).(nB." | File re|
|00000f60| 66 65 72 65 6e 63 65 20 | 63 6f 64 65 22 3a e8 72 |ference |code":.r|
|00000f70| 65 66 24 3a e7 20 97 28 | 64 69 72 64 24 29 3c 3e |ef$:. .(|dird$)<>|
|00000f80| 2d 31 20 ff 20 28 22 44 | 49 52 20 22 2b 64 69 72 |-1 . ("D|IR "+dir|
|00000f90| 64 24 29 0d 28 78 72 e7 | 20 44 24 3d 22 46 22 20 |d$).(xr.| D$="F" |
|00000fa0| 84 20 44 24 3d 22 66 22 | 20 e8 22 20 20 4e 6f 2e |. D$="f"| ."  No.|
|00000fb0| 6f 66 20 44 41 54 41 20 | 76 61 6c 75 65 73 20 66 |of DATA |values f|
|00000fc0| 72 6f 6d 20 74 68 69 73 | 20 66 69 6c 65 22 27 22 |rom this| file"'"|
|00000fd0| 20 20 50 6f 73 69 74 69 | 6f 6e 20 4e 6f 2e 6f 66 |  Positi|on No.of|
|00000fe0| 20 66 69 72 73 74 20 44 | 41 54 41 20 76 61 6c 75 | first D|ATA valu|
|00000ff0| 65 22 2c 50 25 2c 51 25 | 20 8b 20 50 25 3d 4e 39 |e",P%,Q%| . P%=N9|
|00001000| 3a 51 25 3d 31 0d 28 82 | 0a 51 51 25 3d 51 25 0d |:Q%=1.(.|.QQ%=Q%.|
|00001010| 28 8c 09 f1 72 65 66 24 | 0d 28 96 0d 66 3d ad 28 |(...ref$|.(..f=.(|
|00001020| 72 65 66 24 29 0d 28 b4 | 2e e7 20 66 3d 30 20 f1 |ref$).(.|.. f=0 .|
|00001030| 27 22 85 88 46 69 6c 65 | 20 22 3b 72 65 66 24 3b |'"..File| ";ref$;|
|00001040| 22 20 6e 6f 74 20 66 6f | 75 6e 64 22 3a e5 20 8d |" not fo|und":. .|
|00001050| 44 64 68 0d 28 be 14 e8 | 23 66 2c 41 24 2c 4e 25 |Ddh.(...|#f,A$,N%|
|00001060| 3a 4e 4e 25 3d 4e 25 0d | 28 d2 33 e7 20 4e 25 2d |:NN%=N%.|(.3. N%-|
|00001070| 51 25 2b 31 3c 50 25 20 | f1 27 22 82 88 49 6e 73 |Q%+1<P% |.'"..Ins|
|00001080| 75 66 66 69 63 69 65 6e | 74 20 64 61 74 61 22 3a |ufficien|t data":|
|00001090| d9 23 66 3a e5 20 8d 44 | 64 68 0d 28 dc 11 e7 20 |.#f:. .D|dh.(... |
|000010a0| 51 25 3d 31 20 8c 20 8d | 64 70 68 0d 28 e6 1c e3 |Q%=1 . .|dph.(...|
|000010b0| 20 52 25 3d 31 20 b8 20 | 51 25 2d 31 3a e8 23 66 | R%=1 . |Q%-1:.#f|
|000010c0| 2c 58 64 75 6d 3a ed 0d | 28 f0 33 e3 20 52 25 3d |,Xdum:..|(.3. R%=|
|000010d0| 51 25 20 b8 20 51 25 2b | 50 25 2d 31 3a 5a 25 3d |Q% . Q%+|P%-1:Z%=|
|000010e0| 5a 25 2b 31 3a 4a 25 3d | 5a 25 20 83 32 34 30 3a |Z%+1:J%=|Z% .240:|
|000010f0| 4b 25 3d 5a 25 20 81 32 | 34 30 0d 28 fa 11 e8 23 |K%=Z% .2|40.(...#|
|00001100| 66 2c 58 31 28 4a 25 2c | 4b 25 29 0d 29 04 05 ed |f,X1(J%,|K%).)...|
|00001110| 0d 29 0e 09 d9 23 66 3a | e1 0d 29 13 05 3a 0d 29 |.)...#f:|..)..:.)|
|00001120| 18 37 dd f2 73 61 76 65 | 3a e7 20 4e 39 3d 30 20 |.7..save|:. N9=0 |
|00001130| f1 27 22 83 9d 88 81 3e | 20 20 4e 4f 20 20 44 41 |.'"....>|  NO  DA|
|00001140| 54 41 20 20 3c 89 22 27 | 3a 64 65 6c 3d a6 28 32 |TA  <."'|:del=.(2|
|00001150| 35 30 29 3a e1 0d 29 22 | 34 e8 27 22 45 6e 74 65 |50):..)"|4.'"Ente|
|00001160| 72 20 66 69 6c 65 20 72 | 65 66 65 72 65 6e 63 65 |r file r|eference|
|00001170| 20 63 6f 64 65 28 6c 69 | 6d 69 74 20 31 30 63 68 | code(li|mit 10ch|
|00001180| 72 73 29 22 2c 72 65 66 | 24 0d 29 27 4a f5 3a f1 |rs)",ref|$.)'J.:.|
|00001190| 22 83 9d 81 50 6c 61 69 | 6e 20 6e 75 6d 65 72 69 |"...Plai|n numeri|
|000011a0| 63 20 66 69 6c 65 20 59 | 3f 20 65 6c 73 65 20 72 |c file Y|? else r|
|000011b0| 65 74 75 72 6e 22 3b 3a | 53 57 24 3d be 3a fd 20 |eturn";:|SW$=.:. |
|000011c0| a9 28 53 57 24 29 3d 31 | 20 84 20 a9 28 53 57 24 |.(SW$)=1| . .(SW$|
|000011d0| 29 3d 30 0d 29 2c 50 f1 | 27 22 82 88 45 4e 53 55 |)=0.),P.|'"..ENSU|
|000011e0| 52 45 20 44 41 54 41 20 | 44 49 53 43 20 49 53 20 |RE DATA |DISC IS |
|000011f0| 50 52 45 53 45 4e 54 22 | 27 22 20 86 53 65 6c 65 |PRESENT"|'" .Sele|
|00001200| 63 74 20 46 55 4c 4c 20 | 64 69 72 65 63 74 6f 72 |ct FULL |director|
|00001210| 79 20 70 61 74 68 6e 61 | 6d 65 20 22 3a e8 20 64 |y pathna|me ":. d|
|00001220| 69 72 24 0d 29 36 28 e7 | 20 97 28 64 69 72 24 29 |ir$.)6(.| .(dir$)|
|00001230| 3e 33 31 20 ff 20 22 44 | 49 52 20 22 2b 64 69 72 |>31 . "D|IR "+dir|
|00001240| 24 20 20 8b 20 e5 20 8d | 54 6c 69 0d 29 4a 0d 66 |$  . . .|Tli.)J.f|
|00001250| 3d ae 28 72 65 66 24 29 | 0d 29 54 19 e7 20 53 57 |=.(ref$)|.)T.. SW|
|00001260| 24 20 3c 3e 22 59 22 20 | f1 23 66 2c 41 24 2c 4e |$ <>"Y" |.#f,A$,N|
|00001270| 39 0d 29 5e 57 e3 20 4b | 25 3d 30 20 b8 20 61 72 |9.)^W. K|%=0 . ar|
|00001280| 72 61 79 73 69 7a 65 25 | 3a 20 e3 20 49 3d 31 20 |raysize%|: . I=1 |
|00001290| b8 20 32 34 30 3a e7 20 | 4b 25 2a 32 34 30 2b 49 |. 240:. |K%*240+I|
|000012a0| 3d 4e 39 2b 31 20 4b 25 | 3d 61 72 72 61 79 73 69 |=N9+1 K%|=arraysi|
|000012b0| 7a 65 25 3a 49 3d 32 34 | 30 20 8b 20 f1 23 66 2c |ze%:I=24|0 . .#f,|
|000012c0| 58 31 28 49 2c 4b 25 29 | 0d 29 68 0c ed 3a ed 3a |X1(I,K%)|.)h..:.:|
|000012d0| d9 20 23 66 0d 29 72 05 | e1 0d 29 77 05 3a 0d 29 |. #f.)r.|..)w.:.)|
|000012e0| cc 0a dd f2 70 6f 73 6e | 0d 29 d6 4a 4a 39 3d 28 |....posn|.).JJ9=(|
|000012f0| 49 25 28 6c 6f 25 29 83 | 32 34 30 2d 4b 39 2a 36 |I%(lo%).|240-K9*6|
|00001300| 30 29 81 32 30 3a 49 39 | 3d 28 49 25 28 6c 6f 25 |0).20:I9|=(I%(lo%|
|00001310| 29 2d 4b 39 2a 36 30 29 | 83 32 30 3a e7 20 49 39 |)-K9*60)|.20:. I9|
|00001320| 3d 30 20 8c 20 4a 39 3d | 4a 39 2d 31 3a 49 39 3d |=0 . J9=|J9-1:I9=|
|00001330| 32 30 0d 29 e0 18 e7 20 | 49 25 28 6c 6f 25 29 83 |20.)... |I%(lo%).|
|00001340| 32 34 30 3d 30 20 4a 39 | 3d 32 0d 29 e1 05 e1 0d |240=0 J9|=2.)....|
|00001350| 29 e5 05 3a 0d 2a c6 9d | dd f2 66 69 6c 28 43 29 |)..:.*..|..fil(C)|
|00001360| 3a f1 27 22 83 9d 81 4c | 41 53 54 20 46 49 4c 45 |:.'"...L|AST FILE|
|00001370| 20 44 45 53 43 52 49 50 | 54 49 4f 4e 20 52 45 41 | DESCRIP|TION REA|
|00001380| 44 20 49 53 3a 20 22 27 | 22 83 9d 81 22 3b 41 24 |D IS: "'|"...";A$|
|00001390| 3b 27 22 87 9d 84 4c 41 | 53 54 20 44 49 53 43 20 |;'"...LA|ST DISC |
|000013a0| 46 49 4c 45 3a 20 22 3b | 72 65 66 24 3b 22 20 20 |FILE: ";|ref$;"  |
|000013b0| 4c 45 4e 47 54 48 20 49 | 53 3a 20 22 3b 4e 4e 25 |LENGTH I|S: ";NN%|
|000013c0| 3b 27 22 20 9d 84 46 52 | 4f 4d 20 4e 4f 2e 3a 22 |;'" ..FR|OM NO.:"|
|000013d0| 3b 51 51 25 3b 22 20 20 | 54 4f 54 41 4c 20 4e 4f |;QQ%;"  |TOTAL NO|
|000013e0| 2e 20 49 4e 50 55 54 3a | 20 22 3b 4e 39 3b 27 3a |. INPUT:| ";N9;':|
|000013f0| e1 0d 2e e0 17 dd a4 75 | 73 69 6e 67 28 66 6f 72 |.......u|sing(for|
|00001400| 6d 61 74 24 2c 6e 6f 29 | 0d 2e ea 18 ea 20 6e 75 |mat$,no)|..... nu|
|00001410| 6d 62 24 2c 73 70 24 2c | 44 25 2c 4c 25 2c 40 25 |mb$,sp$,|D%,L%,@%|
|00001420| 0d 2e f4 0f 6e 75 6d 62 | 24 3d c3 28 6e 6f 29 0d |....numb|$=.(no).|
|00001430| 2e fe 38 e7 20 6e 6f 3e | 30 20 80 20 97 28 66 6f |..8. no>|0 . .(fo|
|00001440| 72 6d 61 74 24 29 3d 34 | 35 20 8c 20 73 70 24 3d |rmat$)=4|5 . sp$=|
|00001450| bd 33 32 3a 66 6f 72 6d | 61 74 24 3d c1 66 6f 72 |.32:form|at$=.for|
|00001460| 6d 61 74 24 2c 32 29 0d | 2f 08 11 4c 25 3d a9 28 |mat$,2).|/..L%=.(|
|00001470| 66 6f 72 6d 61 74 24 29 | 0d 2f 12 18 44 25 3d a7 |format$)|./..D%=.|
|00001480| 66 6f 72 6d 61 74 24 2b | bd 33 32 2c 22 2e 22 29 |format$+|.32,".")|
|00001490| 0d 2f 1c 2d e7 20 44 25 | 20 8c 20 40 25 3d 28 36 |./.-. D%| . @%=(6|
|000014a0| 36 30 34 38 2b 4c 25 2d | 44 25 29 2a 32 35 36 20 |6048+L%-|D%)*256 |
|000014b0| 8b 20 6e 6f 3d a8 28 6e | 6f 2b 2e 35 29 0d 2f 26 |. no=.(n|o+.5)./&|
|000014c0| 20 e7 20 a7 6e 75 6d 62 | 24 2c 22 45 22 29 20 8c | . .numb|$,"E") .|
|000014d0| 20 3d 73 70 24 2b 66 6f | 72 6d 61 74 24 0d 2f 30 | =sp$+fo|rmat$./0|
|000014e0| 29 e7 20 a7 6e 75 6d 62 | 24 2b 22 2e 22 2c 22 2e |). .numb|$+".",".|
|000014f0| 22 29 3e 4c 25 2b 31 20 | 8c 20 3d 73 70 24 2b 66 |")>L%+1 |. =sp$+f|
|00001500| 6f 72 6d 61 74 24 0d 2f | 3a 11 66 6f 72 6d 61 74 |ormat$./|:.format|
|00001510| 24 3d c3 28 6e 6f 29 0d | 2f 44 27 e7 20 a9 28 66 |$=.(no).|/D'. .(f|
|00001520| 6f 72 6d 61 74 24 29 3e | 4c 25 20 8c 20 3d 73 70 |ormat$)>|L% . =sp|
|00001530| 24 2b c0 66 6f 72 6d 61 | 74 24 2c 4c 25 29 0d 2f |$+.forma|t$,L%)./|
|00001540| 4e 1e 3d 73 70 24 2b c2 | c4 4c 25 2c 22 20 22 29 |N.=sp$+.|.L%," ")|
|00001550| 2b 66 6f 72 6d 61 74 24 | 2c 4c 25 29 0d 2f a8 13 |+format$|,L%)./..|
|00001560| dd f2 73 65 72 69 61 6c | 3a 2a 46 58 35 2c 32 0d |..serial|:*FX5,2.|
|00001570| 2f b2 70 f1 27 22 83 45 | 6e 74 65 72 20 42 61 75 |/.p.'".E|nter Bau|
|00001580| 64 20 52 61 74 65 20 6f | 66 20 70 72 69 6e 74 65 |d Rate o|f printe|
|00001590| 72 20 61 73 20 66 6f 6c | 6c 6f 77 73 22 27 27 22 |r as fol|lows"''"|
|000015a0| 83 37 35 3d 31 2c 20 31 | 35 30 3d 32 2c 20 33 30 |.75=1, 1|50=2, 30|
|000015b0| 30 3d 33 2c 20 31 32 30 | 30 3d 34 2c 20 32 34 30 |0=3, 120|0=4, 240|
|000015c0| 30 3d 35 22 27 22 83 34 | 38 30 30 3d 36 2c 20 39 |0=5"'".4|800=6, 9|
|000015d0| 36 30 30 3d 37 2c 20 31 | 39 32 30 30 3d 38 22 0d |600=7, 1|9200=8".|
|000015e0| 2f bc 1b 62 64 25 3d a5 | 2d 34 38 3a ff 20 22 2a |/..bd%=.|-48:. "*|
|000015f0| 46 58 38 2c 22 2b c3 62 | 64 25 0d 2f c6 0a 2a 46 |FX8,"+.b|d%./..*F|
|00001600| 58 36 2c 30 0d 2f d0 19 | f1 27 22 81 88 4f 4b 22 |X6,0./..|.'"..OK"|
|00001610| 3a 64 65 6c 3d a6 28 32 | 35 30 29 3a e1 0d 2f da |:del=.(2|50):../.|
|00001620| 93 dd f2 77 68 65 72 65 | 3a f5 3a f1 27 27 22 83 |...where|:.:.''".|
|00001630| 9d 84 88 3e 89 20 45 6e | 74 65 72 20 64 72 69 76 |...>. En|ter driv|
|00001640| 65 20 4e 6f 2e 20 6f 66 | 20 64 61 74 61 20 64 69 |e No. of| data di|
|00001650| 73 63 20 88 3c 89 22 27 | 22 83 9d 84 20 20 6f 72 |sc .<."'|"...  or|
|00001660| 20 52 45 54 55 52 4e 20 | 66 6f 72 20 64 72 69 76 | RETURN |for driv|
|00001670| 65 20 30 22 3a 69 6e 63 | 25 3d a5 2d 34 38 3a fd |e 0":inc|%=.-48:.|
|00001680| 20 28 69 6e 63 25 3e 2d | 31 20 80 20 69 6e 63 25 | (inc%>-|1 . inc%|
|00001690| 3c 37 29 20 84 20 69 6e | 63 25 3d 2d 33 35 3a e7 |<7) . in|c%=-35:.|
|000016a0| 20 69 6e 63 25 3d 2d 33 | 35 20 69 6e 63 25 3d 30 | inc%=-3|5 inc%=0|
|000016b0| 0d 2f e4 58 f1 27 22 83 | 9d 84 45 6e 74 65 72 20 |./.X.'".|..Enter |
|000016c0| 64 61 74 61 20 64 69 72 | 65 63 74 6f 72 79 20 70 |data dir|ectory p|
|000016d0| 61 74 68 6e 61 6d 65 89 | 22 27 22 83 9d 84 6f 72 |athname.|"'"...or|
|000016e0| 20 52 45 54 55 52 4e 20 | 66 6f 72 20 63 75 72 72 | RETURN |for curr|
|000016f0| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 89 22 27 |ent dire|ctory."'|
|00001700| 3a e8 20 64 69 72 64 24 | 0d 2f ee 20 f4 20 49 46 |:. dird$|./. . IF|
|00001710| 20 64 69 72 64 24 3d 22 | 22 20 54 48 45 4e 20 64 | dird$="|" THEN d|
|00001720| 69 72 64 24 3d 22 5e 22 | 0d 2f f8 05 e1 0d 30 0c |ird$="^"|./....0.|
|00001730| 0a dd f2 69 6e 69 74 0d | 30 16 27 eb 20 37 3a 4e |...init.|0.'. 7:N|
|00001740| 4e 25 3d 30 3a 51 51 25 | 3d 30 3a 4b 25 3d 30 3a |N%=0:QQ%|=0:K%=0:|
|00001750| ef 32 33 2c 31 2c 30 3b | 30 3b 30 3b 30 3b 0d 30 |.23,1,0;|0;0;0;.0|
|00001760| 20 2b 61 72 72 61 79 73 | 69 7a 65 25 3d 31 30 3a | +arrays|ize%=10:|
|00001770| 64 75 6d 6d 79 25 3d 30 | 3a 73 68 61 70 65 24 3d |dummy%=0|:shape$=|
|00001780| 22 2a 2a 2a 2e 2a 2a 2a | 22 0d 30 2a 26 46 34 3d |"***.***|".0*&F4=|
|00001790| 31 3a 72 65 66 24 3d 22 | 4e 6f 6e 65 22 3a 4e 39 |1:ref$="|None":N9|
|000017a0| 3d 30 3a 41 24 3d 22 4e | 6f 20 64 61 74 61 22 0d |=0:A$="N|o data".|
|000017b0| 30 34 31 de 20 58 31 28 | 32 34 30 2c 61 72 72 61 |041. X1(|240,arra|
|000017c0| 79 73 69 7a 65 25 29 2c | 58 28 32 34 30 2c 61 72 |ysize%),|X(240,ar|
|000017d0| 72 61 79 73 69 7a 65 25 | 29 2c 49 25 28 36 31 29 |raysize%|),I%(61)|
|000017e0| 0d 30 3e 59 f1 22 83 9d | 84 46 55 4c 4c 20 4f 4e |.0>Y."..|.FULL ON|
|000017f0| 45 20 57 41 59 20 41 4e | 41 4c 59 53 49 53 20 4f |E WAY AN|ALYSIS O|
|00001800| 46 20 56 41 52 49 41 4e | 43 45 20 2d 22 27 22 83 |F VARIAN|CE -"'".|
|00001810| 9d 84 49 4e 43 4f 4d 50 | 4c 45 54 45 20 43 45 4c |..INCOMP|LETE CEL|
|00001820| 4c 53 20 41 4c 4c 4f 57 | 45 44 20 52 2e 64 65 20 |LS ALLOW|ED R.de |
|00001830| 56 20 31 39 38 39 22 27 | 27 0d 30 48 50 f1 22 92 |V 1989"'|'.0HP.".|
|00001840| 9d 84 44 61 74 61 20 66 | 6f 72 6d 61 74 20 61 6c |..Data f|ormat al|
|00001850| 6c 6f 77 73 20 37 20 66 | 69 67 75 72 65 20 64 69 |lows 7 f|igure di|
|00001860| 73 70 6c 61 79 20 22 27 | 22 92 9d 84 69 6e 63 6c |splay "'|"...incl|
|00001870| 75 64 69 6e 67 20 74 68 | 65 20 64 65 63 69 6d 61 |uding th|e decima|
|00001880| 6c 20 70 6f 69 6e 74 21 | 22 0d 30 52 9b f5 3a f1 |l point!|".0R..:.|
|00001890| 22 83 9d 84 45 6e 74 65 | 72 20 70 72 65 66 65 72 |"...Ente|r prefer|
|000018a0| 72 65 64 20 64 61 74 61 | 20 66 6f 72 6d 61 74 20 |red data| format |
|000018b0| 69 6e 20 74 68 65 22 27 | 22 83 9d 84 66 6f 72 6d |in the"'|"...form|
|000018c0| 20 2a 2a 2a 2e 2a 2a 2a | 20 6f 72 20 52 45 54 55 | ***.***| or RETU|
|000018d0| 52 4e 20 66 6f 72 20 64 | 65 66 61 75 6c 74 22 3b |RN for d|efault";|
|000018e0| 3a e8 20 73 68 61 70 65 | 24 3a fd 20 a9 28 73 68 |:. shape|$:. .(sh|
|000018f0| 61 70 65 24 29 3d 37 20 | 84 20 a9 28 73 68 61 70 |ape$)=7 |. .(shap|
|00001900| 65 24 29 3d 30 3a e7 20 | a9 28 73 68 61 70 65 24 |e$)=0:. |.(shape$|
|00001910| 29 3d 30 20 73 68 61 70 | 65 24 3d 22 2a 2a 2a 2e |)=0 shap|e$="***.|
|00001920| 2a 2a 2a 22 0d 30 70 9a | f1 27 22 83 9d 84 45 6e |***".0p.|.'"...En|
|00001930| 74 65 72 20 31 20 74 6f | 20 70 72 6f 63 65 73 73 |ter 1 to| process|
|00001940| 20 61 6c 6c 20 64 61 74 | 61 20 69 6e 63 2e 22 27 | all dat|a inc."'|
|00001950| 22 83 9d 84 7a 65 72 6f | 20 61 6e 64 20 6e 65 67 |"...zero| and neg|
|00001960| 61 74 69 76 65 20 76 61 | 6c 75 65 73 20 6f 72 20 |ative va|lues or |
|00001970| 52 45 54 55 52 4e 22 27 | 22 83 9d 84 74 6f 20 74 |RETURN"'|"...to t|
|00001980| 72 65 61 74 20 76 61 6c | 75 65 73 20 3c 20 30 2e |reat val|ues < 0.|
|00001990| 30 30 31 20 61 73 20 6d | 69 73 73 69 6e 67 20 22 |001 as m|issing "|
|000019a0| 3a 64 75 6d 6d 79 25 3d | a5 3a e7 20 64 75 6d 6d |:dummy%=|.:. dumm|
|000019b0| 79 25 3d 31 33 20 64 75 | 6d 6d 79 25 3d 30 0d 30 |y%=13 du|mmy%=0.0|
|000019c0| 7a 32 f1 27 22 83 9d 84 | 3e 89 46 75 6c 6c 20 65 |z2.'"...|>.Full e|
|000019d0| 64 69 74 69 6e 67 20 69 | 6e 70 75 74 3d 46 20 65 |diting i|nput=F e|
|000019e0| 6c 73 65 20 52 45 54 55 | 52 4e 22 3a 44 24 3d be |lse RETU|RN":D$=.|
|000019f0| 0d 30 d4 05 e1 0d 31 38 | 09 dd f2 64 69 6d 0d 31 |.0....18|...dim.1|
|00001a00| 42 31 de 20 41 33 28 61 | 72 72 61 79 73 69 7a 65 |B1. A3(a|rraysize|
|00001a10| 25 2a 32 35 29 2c 51 28 | 32 35 30 29 3a 72 65 66 |%*25),Q(|250):ref|
|00001a20| 24 3d 22 4e 6f 74 20 6f | 6e 20 66 69 6c 65 22 0d |$="Not o|n file".|
|00001a30| 31 92 05 e1 0d 31 9c 9b | dd f2 6f 73 3a f1 27 22 |1....1..|..os:.'"|
|00001a40| 83 9d 84 3e 20 20 4f 50 | 45 52 41 54 49 4e 47 20 |...>  OP|ERATING |
|00001a50| 53 59 53 54 45 4d 20 43 | 41 4c 4c 20 28 65 67 20 |SYSTEM C|ALL (eg |
|00001a60| 2a 43 41 54 20 3c 22 27 | 3a e8 22 45 6e 74 65 72 |*CAT <"'|:."Enter|
|00001a70| 20 63 61 6c 6c 20 28 6b | 65 79 20 73 68 69 66 74 | call (k|ey shift|
|00001a80| 20 74 6f 20 73 63 72 6f | 6c 6c 29 22 2c 53 57 24 | to scro|ll)",SW$|
|00001a90| 3a ef 31 34 3a ff 20 53 | 57 24 3a ef 31 35 3a f1 |:.14:. S|W$:.15:.|
|00001aa0| 22 83 9d 84 3e 20 20 50 | 72 65 73 73 20 61 20 6b |"...>  P|ress a k|
|00001ab0| 65 79 20 74 6f 20 65 6e | 64 20 64 65 6c 61 79 20 |ey to en|d delay |
|00001ac0| 20 3c 22 3a 64 65 6c 3d | a6 28 32 30 30 30 29 0d | <":del=|.(2000).|
|00001ad0| 32 c8 05 e1 0d ff       |                         |2.....  |        |
+--------+-------------------------+-------------------------+--------+--------+